extern int ztrevc_(char *side, char *howmny, logical *select, integer *n, doublecomplex *t, integer *ldt, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr, integer *mm, integer *m, doublecomplex *work, doublereal *rwork, integer *info, ftnlen side_len, ftnlen howmny_len);
/*:ref: lsame_ 12 4 13 13 124 124 */
/*:ref: xerbla_ 14 3 13 4 124 */
/*:ref: dlamch_ 7 2 13 124 */
/*:ref: dlabad_ 14 2 7 7 */
/*:ref: dzasum_ 7 3 4 9 4 */
/*:ref: zlatrs_ 14 15 13 13 13 13 4 9 4 9 7 7 4 124 124 124 124 */
/*:ref: zcopy_ 14 5 4 9 4 9 4 */
/*:ref: izamax_ 4 3 4 9 4 */
/*:ref: zdscal_ 14 4 4 7 9 4 */
/*:ref: zgemv_ 14 12 13 4 4 9 9 4 9 4 9 9 4 124 */
